home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / userbase.scr < prev    next >
Encoding:
Text File  |  1995-10-01  |  2.9 KB  |  127 lines
  1. /*
  2.  * Octopus, The Atari ST(e)/TT/Falcon GEM/TOS Bulletin Board System
  3.  * written by me (Koos Kuil) on FidoNet: 2:282/397, NeST: 90:500/103
  4.  *
  5.  * OctoScript file written on 10 Jun 1995
  6.  *
  7.  * ------------------------------------------------------------------
  8.  * USERBASE.SCR  Newuser procedure functions
  9.  *
  10.  */
  11.  
  12. :login
  13. Login
  14. IfNewUser
  15.   Send "\r\n\nNow you should have answer all next questions correctly"
  16.  
  17.   /* Ask the user for his information */
  18.   Send '\r\n\nYour street & home number     : '
  19.   Input &User.Street
  20.   Send '\r\nYour post mail code (1234 AB) : '
  21.   Input &User.Postcode
  22.   Send '\r\nYour city & state             : '
  23.   Input &User.City
  24.   Send '\r\nYour voice telephone number   : '
  25.   Input &User.VoiceTel
  26.   Send '\r\n\nDo you have a Bulletin Board or FAX (Y,n) ? '
  27.   AskYesNo
  28.   IfAskTrue
  29.     Send 'Yes\n'
  30.     Send '\r\nEnter the name of your Bulletin Board or FAX\r\n>'
  31.     Input &User.BBSFax
  32.     Send '\r\n\nEnter the telephone number    : '
  33.     Input &User.DataTel
  34.   Else
  35.     Send 'No\n'
  36.   Endif
  37.   Send '\r\n\nEnter the type of computer that you using.\r\n>'
  38.   Input &User.Computer
  39.   Send '\r\n\nEnter your type of modem & maximum speed.\r\n>'
  40.   Input &User.Modem
  41.  
  42.   Gosub toggle_dateformat
  43.   Input &User.Birthday
  44.  
  45.   /* Ask the user if he does enter everything correctly */ 
  46.   Send '\r\n\nHave you all the information correct entered (Y,n) ? '
  47.   AskYesNo
  48.   IfAskTrue
  49.     SaveUserRecord
  50.   Else
  51.       Gosub changeuser    /* Let the user change their information */
  52.   Endif
  53. Endif
  54. Return
  55.  
  56. /* The Password is a special option */
  57. :change_password
  58. ChangePassword
  59. Return
  60.  
  61. :change_emulation
  62. ChangeEmulation
  63. Return
  64.  
  65. :change_screenlength
  66. ChangeScreenLength
  67. Return
  68.  
  69. :change_screenwidth
  70. ChangeScreenWidth
  71. Return
  72.  
  73. :toggle_fullscred
  74. Send "\f***  Full Screen Message Editor ?  ***\r\n\n"
  75.      "@Y  Yes, use the full screen edit (not in ascii mode).\r\n"
  76.      "@N  No, use the internal message line-orientated editor.\r\n\n"
  77.      "Select: "
  78.  
  79. AskYesNo
  80. IfAskTrue
  81.     SetFullScrEd On
  82. Else
  83.     SetFullScrEd Off
  84. Endif
  85. Return
  86.  
  87. :toggle_moreprompt
  88. Send "\f***  Wait after each screen ?  ***\r\n\n"
  89.      "@Y  Yes, enable more prompt\r\n"
  90.      "@N  No, disable more prompt\r\n\n"
  91.      "Select: "
  92. AskYesNo
  93. IfAskTrue
  94.     SetMorePrompt On
  95. Else
  96.     SetMorePrompt Off
  97. Endif
  98. Return
  99.  
  100. :toggle_hotkeys
  101. Send "\r\n\nDo you want to use fast menu hotkeys @c1(Y,n)@c0 ? "
  102. AskYesNo
  103. EchoYesNo
  104. IfAskTrue
  105.     SetHotkeys On
  106. Else
  107.     SetHotkeys Off
  108. Endif
  109. Return
  110.  
  111. :toggle_dateformat
  112. Do
  113.   Send "\r\n\nSelect your favourite date format.\r\n\n"
  114.        "1. DD-MM-YYYY  (26 September 1995)\r\n"
  115.        "2. MM-DD-YYYY  (September 26th 1995)\r\n\n"
  116.   Send "Make your choice: "
  117.   DoChoice
  118.     Selectchoice
  119.       Case 1  SetAltDateFormat Off
  120.       Case 2  SetAltDateFormat  On
  121.     EndSelect
  122.   EnddoChoice 12
  123.   EchoKey
  124. Enddo 12
  125. Return
  126.       
  127. /* End USERBASE.SCR */